home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / clue.lha / clue / cursor.l < prev    next >
Text File  |  1989-07-12  |  2KB  |  101 lines
  1. ;;; -*- Mode:Lisp; Package:CLUEI; Syntax:COMMON-LISP; Base:10; Lowercase:T -*-
  2.  
  3. ;;;
  4. ;;;             TEXAS INSTRUMENTS INCORPORATED
  5. ;;;                  P.O. BOX 2909
  6. ;;;                   AUSTIN, TEXAS 78769
  7. ;;;
  8. ;;; Copyright (C) 1987 Texas Instruments Incorporated.
  9. ;;;
  10. ;;; Permission is granted to any individual or institution to use, copy, modify,
  11. ;;; and distribute this software, provided that this complete copyright and
  12. ;;; permission notice is maintained, intact, in all copies and supporting
  13. ;;; documentation.
  14. ;;;
  15. ;;; Texas Instruments Incorporated provides this software "as is" without
  16. ;;; express or implied warranty.
  17. ;;;
  18.  
  19. (in-package 'cluei :use '(lisp xlib))
  20.  
  21. (defparameter *cursor-names*
  22.           '(("X_cursor"        0)
  23.         ("arrow"        2)
  24.         ("based_arrow_down"    4)
  25.         ("based_arrow_up"    6)
  26.         ("boat"            8)
  27.         ("bogosity"        10)
  28.         ("bottom_left_corner"    12)
  29.         ("bottom_right_corner"    14)
  30.         ("bottom_side"        16)
  31.         ("bottom_tee"        18)
  32.         ("box_spiral"        20)
  33.         ("center_ptr"        22)
  34.         ("circle"        24)
  35.         ("clock"        26)
  36.         ("coffee_mug"        28)
  37.         ("cross"        30)
  38.         ("cross_reverse"    32)
  39.         ("crosshair"        34)
  40.         ("diamond_cross"    36)
  41.         ("dot"            38)
  42.         ("dotbox"        40)
  43.         ("double_arrow"        42)
  44.         ("draft_large"        44)
  45.         ("draft_small"        46)
  46.         ("draped_box"        48)
  47.         ("exchange"        50)
  48.         ("fleur"        52)
  49.         ("gobbler"        54)
  50.         ("gumby"        56)
  51.         ("hand1"        58)
  52.         ("hand2"        60)
  53.         ("heart"        62)
  54.         ("icon"            64)
  55.         ("iron_cross"        66)
  56.         ("left_ptr"        68)
  57.         ("left_side"        70)
  58.         ("left_tee"        72)
  59.         ("leftbutton"        74)
  60.         ("ll_angle"        76)
  61.         ("lr_angle"        78)
  62.         ("man"            80)
  63.         ("middlebutton"        82)
  64.         ("mouse"        84)
  65.         ("pencil"        86)
  66.         ("pirate"        88)
  67.         ("plus"            90)
  68.         ("question_arrow"    92)
  69.         ("right_ptr"        94)
  70.         ("right_side"        96)
  71.         ("right_tee"        98)
  72.         ("rightbutton"        100)
  73.         ("rtl_logo"        102)
  74.         ("RTL_logo"        102)
  75.         ("sailboat"        104)
  76.         ("sb_down_arrow"    106)
  77.         ("sb_h_double_arrow"    108)
  78.         ("sb_left_arrow"    110)
  79.         ("sb_right_arrow"    112)
  80.         ("sb_up_arrow"        114)
  81.         ("sb_v_double_arrow"    116)
  82.         ("shuttle"        118)
  83.         ("sizing"        120)
  84.         ("spider"        122)
  85.         ("spraycan"        124)
  86.         ("star"            126)
  87.         ("target"        128)
  88.         ("tcross"        130)
  89.         ("top_left_arrow"    132)
  90.         ("top_left_corner"    134)
  91.         ("top_right_corner"    136)
  92.         ("top_side"        138)
  93.         ("top_tee"        140)
  94.         ("trek"            142)
  95.         ("ul_angle"        144)
  96.         ("umbrella"        146)
  97.         ("ur_angle"        148)
  98.         ("watch"        150)
  99.         ("xterm"        152)
  100.         ))
  101.